;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	7-9-1999
;;;	   Edited:	10-3-2002
;;;
(defun c:flipA ()
  (SETQ flipang (uangle 1 "" "Angle of rotation" flipang NIL))
  (while
    (and (setq sel_item (entsel "\Select block to flip. "))
	 (if sel_item (or
			(and
			  (eq(cdr(assoc 0 (entget(car sel_item))))"INSERT")
			  (/=(boole 1 (cdr(assoc 70 (tblsearch "block"(cdr(assoc 2(entget(car sel_item))))))) 4) 4)
		        )
			(eq(cdr(assoc 0 (entget(car sel_item))))"TEXT")
		      )
	 )
    )
    (setq sel_edata (entget (car sel_item)))
    (setq iang (cdr(assoc 50 sel_edata)))
    (setq sel_edata (subst (cons 50 (+ flipang iang))(assoc 50 sel_edata)sel_edata))
    (entmod sel_edata)
    (setq sel_item nil)
  )
  (princ "\nNo block selected! ")
  (princ)
)